﻿Public Class xtf_LISTADOcocheraespacio_

    Public Overrides Sub IniciarLista()
        Try
            gdc_general.BeginUpdate()
            gdc_general.DataSource = dtt_DataTable
            'ulg_Lista.DisplayLayout.GroupByBox.Style = Infragistics.Win.UltraWinGrid.GroupByBoxStyle.Full

            'Creacion y carga de Cuentas
            dtt_DataTable.Columns.Add("Identificador (ID)")
            dtt_DataTable.Columns.Add("Nombre")
            dtt_DataTable.Columns.Add("Alto")
            dtt_DataTable.Columns.Add("Ancho")
            dtt_DataTable.Columns.Add("Largo")
            dtt_DataTable.Columns.Add("Techada")
            dtt_DataTable.Columns.Add("Código")
            dtt_DataTable.Columns.Add("Hubicación")
            dtt_DataTable.Columns.Add("Articulo")



            gdv_general.PopulateColumns(dtt_DataTable)

            Dim obj_cocheraespacio_ As New cls_cocheraespacio_
            If obj_cocheraespacio_.CargarTodos(ObtenerRegistroEstado) Then
                For Each cocheraespacio As cls_cocheraespacio_ In obj_cocheraespacio_.Items
                    AgregarItem(cocheraespacio)
                Next
            End If
            'ulg_Lista.DataBind()

            FiltrarColumnas()
            gdc_general.EndUpdate()
        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub

    Public Function AgregarItem(ByRef cocheraespacio As cls_cocheraespacio_) As DataRow
        Dim Row As DataRow = dtt_DataTable.NewRow

        Row("Identificador (ID)") = cocheraespacio.idcocherasespacio
        Row("Nombre") = cocheraespacio.nombre
        Row("Alto") = cocheraespacio.alto
        Row("Ancho") = cocheraespacio.ancho
        Row("Largo") = cocheraespacio.largo
        Row("Techada") = cocheraespacio.techada
        Row("Código") = cocheraespacio.codigo
        Row("Hubicación") = cocheraespacio.hubicacion


        If Not IsNothing(cocheraespacio.articulo) Then
            Row("Articulo") = cocheraespacio.articulo.ToString
        End If

        dtt_DataTable.Rows.Add(Row)
        'ulg_Lista.Rows(ulg_Lista.Rows.Count - 1) = cocheraespacio.Height = 19
        Return Row
    End Function

    Public Sub ModificarItem(ByRef cocheraespacio As cls_cocheraespacio_, ByRef ulg_row As DataRow)
        ulg_row("Identificador (ID)") = cocheraespacio.idcocherasespacio
        ulg_row("Nombre") = cocheraespacio.nombre
        ulg_row("Alto") = cocheraespacio.alto
        ulg_row("Ancho") = cocheraespacio.ancho
        ulg_row("Largo") = cocheraespacio.largo
        ulg_row("Techada") = cocheraespacio.techada
        ulg_row("Código") = cocheraespacio.codigo
        ulg_row("Hubicación") = cocheraespacio.hubicacion


        If Not IsNothing(cocheraespacio.articulo) Then
            ulg_row("Articulo") = cocheraespacio.articulo.ToString
        End If

    End Sub

    Public Sub New()

        Me.Cursor = Cursors.WaitCursor
        InitializeComponent()
        PERMISONuevo = "001070002"
        PERMISOModificar = "001070003"
        PERMISOEliminar = "001070004"
        PERMISOImprimir = "001070005"
        Me.Text = lbl_modulo.Text : lbl_modulodescripcion.Text = "Listado de " & lbl_modulo.Text & "."
        IniciarLista()
        Me.Cursor = Cursors.Default

    End Sub
End Class
